\version "2.24.0"
date = #(strftime "%d %B %Y" (localtime (current-time)))

\header {
  title = "Las mañanitas"
  composer = ""
  %tagline = \markup {\bold \date}
  tagline = \markup \bold{ 10 Sept 2024 }
}

harmonyA = {
  \set Staff.instrumentName = "Hrmny 1 "
  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers
  \set Score.dalSegnoTextFormatter = #format-dal-segno-text-brief
  \tempo 4 = 168
  \relative c'' {
    \key g \major
    \time 3/4

    | r4 c \f b
    | a2 g4
    | a2 b4
    | c2 b4
    | c2 d4
    | e2 d4
    | e4 e d
    | e2.
    | r4 d8( e) d[ c]
    | b2 a4
    | b2 c4
    | d2 d4
    | r4 d4. e8
    | d2 b4
    | c2 a4
    | b2 d4
    | c8( b) a[ b] c( a)
    | b4 b8 b b4 ~

    \repeat volta 2 {
      | b8 r r2
      | g2. \p
      | fis2.
      | e2.
      | d4 g b
      | d,2.
      | e2.
      | fis8 r fis[ \f g] a b
      | c4 e4. d8
      | c4 c8[ b] a g
      | fis2.
      | a2. \p
      | g2.
      | fis2.
      | d4 fis a
      | c,2.
      | fis2.
      | g8 r d[ \f g] b d
      | c16 c c8 a[ b] c a
      | b4 b8 b b4 ~
    }

    | b8[ a] c[ b] a g
    | fis2 r4
    | R2.*13
    | r4 <b b,> <c c,>
    | <d d,>4 <cis cis,>8[ <d d,>] <e e,> <fis fis,>
    | <g g,>8 r r4 <d d,>
    | <g g,>4 r2

    \fine

  }
}

harmonyB = {
  \set Staff.instrumentName = "Hrmny 2 "
  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers
  \set Score.dalSegnoTextFormatter = #format-dal-segno-text-brief
  \tempo 4 = 168
  \relative c'' {
    \key g \major
    \time 3/4

    | r4 a \f g
    | fis2 e4
    | fis2 g4
    | a2 g4
    | a2 d4
    | c2 b4
    | c4 c b
    | c2.
    | r4 b8( c) b[ a]
    | g2 fis4
    | g2 a4
    | b2 b4
    | r4 b4. c8
    | b2 g4
    | a2 fis4
    | g2 b4
    | a8( g) fis[ g] a( fis)
    | g4 g8 g g4 ~

    \repeat volta 2 {
      | g8 r r2
      | e2. \p
      | d2.
      | c2.
      | b4 d g
      | b,2.
      | c2.
      | d8 r d8[ \f e] fis g
      | a4 c4. b8
      | a4 a8[ g] fis e
      | d2.
      | fis2. \p
      | e2.
      | d2.
      | b4 d fis
      | a,2.
      | a2.
      | b8 r b[ \f e] g b
      | a16 a a8 fis[ g] a fis
      | g4 g8 g g4 ~
    }

    | g8[ fis] a[ g] fis e
    | d2 r4
    | R2.*13
    | r4 g a
    | b4 a8[ b] c d
    | b8 r r4 c
    | b4 r2

    \fine

  }
}

melody = {
  \set Staff.instrumentName = "Melody "
  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers
  \set Score.dalSegnoTextFormatter = #format-dal-segno-text-brief
  \tempo 4 = 168
  \relative c'' {
    \key g \major
    \time 3/4

    | R2.*18

    \repeat volta 2 {
      | r2 d4 \f
      | g2 fis4
      | g4 g fis
      | g2 g4
      | r4 g4. b8
      | a2 g4
      | fis2 g4
      | a2 a4
      | R2.*2
      | r2 d,4
      | a'2 g4
      | a4 a g
      | a2 a4
      | r4 a4. c8
      | b2 b4
      | a2 a4
      | g2 g4
      | R2.
      | R2.
    }

    | r2 g4
    | fis2 e4
    | fis2 g4
    | a2 g4
    | a2 b4
    | c2 b4
    | c4 c b
    | c2 r4
    | r4 b a
    | g2 fis4
    | g2 a4
    | b2 b4
    | r4 b4. c8
    | b2 b4
    | a2 a4
    | g2. ~
    | g2.
    | R2.
    | R2.

    \fine

  }
}

bass = {
  \tempo 4 = 168
  \set Staff.instrumentName = "Bass "
  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers
  \set Score.dalSegnoTextFormatter = #format-dal-segno-text-brief
  \relative c {
    \key g \major
    \time 3/4

    | r2.
    | fis2 \f r4
    | d2 r4
    | fis2 r4
    | g a b
    | c2 r4
    | g2 r4
    | c2 r4
    | c4 b a
    | g2 r4
    | d2 r4
    | g2 r4
    | b2 b4
    | a2 r4
    | d,4 e fis
    | g4 e' b
    | c4 b a
    | g2 r4

    \repeat volta 2 {
      | d2 r4
      | g2 r4
      | d2 r4
      | g2 r4
      | d2 r4
      | g2 r4
      | d2 r4
      | fis2 r4
      | d2 r4
      | fis2 r4
      | d2 r4
      | fis2 r4
      | d2 r4
      | fis2 r4
      | d2 r4
      | fis2 r4
      | d4 e fis
      | g2 r4
      | d2 r4
      | g2 r4
    }

    | b2 b4
    | fis2 r4
    | d2 r4
    | fis2 r4
    | g4 a b
    | c2 r4
    | g2 r4
    | c2 r4
    | r4 b a
    | g2 r4
    | d2 r4
    | g2 r4
    | d2 r4
    | fis2 r4
    | d4 e fis
    | g4 e d
    | c4 b' a
    | fis4 r d
    | g4 r2

    \fine

  }
}

%words

theLyrics = \lyricmode {

}

theChords = \chordmode {

  | r2.
  | d
  | d
  | d:7
  | d:7
  | c
  | c
  | c
  | c
  | g
  | g
  | g
  | g
  | d:7
  | d:7
  | g
  | g
  | g
  | g
  | g
  | g
  | g
  | g
  | g
  | g
  | d:7
  | d:7
  | d:7
  | d:7
  | d:7
  | d:7
  | d:7
  | d:7
  | d:7
  | d:7
  | g
  | g
  | g
  | g
  | d:7
  | d:7
  | d:7
  | d:7
  | c
  | c
  | c
  | c
  | g
  | g
  | g
  | g
  | d:7
  | d:7
  | g
  | g
  | d:7
  | g

}

%layout

\layout {
  \context {
    \Staff \RemoveEmptyStaves
  }
}

\book {
  \score {
    <<
      \tempo 4 = 168
      \unfoldRepeats \new Staff \harmonyA
      \unfoldRepeats \new Staff \harmonyB
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \bass
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)

#(define output-suffix "C-Score")
\book {
  \paper { }
  \header { instrument = "C / do" }
  \score {
    \new StaffGroup
    <<
      \new ChordNames { \set chordChanges = ##t \theChords }
      \new Staff { \harmonyA }
      \new Staff { \harmonyB }
      \new Voice = "melody" { \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      \new Staff { \clef "bass" \bass }
    >>
  }
}

#(define output-suffix "C-melody-harmony")
\book {
  \paper {
    page-count = #1
  }
  \header { instrument = "C / do" }
  \score {
    \new StaffGroup
    <<
      %\new ChordNames { \set chordChanges = ##t \theChords }
      \new Staff { \harmonyA }
      \new Staff { \harmonyB }
      \new Voice = "melody" { \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      %\new Staff { \clef "bass" \bass }
    >>
  }
}

#(define output-suffix "C-Bass")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #1
  }
  \header { instrument = "C / do - Bass" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        \new Staff { \clef "bass" \transpose c c,, \melody }
        \new Staff { \clef "bass" \bass }
      >>
    }
  }
}

%#(define output-suffix "Bflat-Score")
%\book {
%  \paper { }
%  \header { instrument = "B flat / si bémol" }
%  \score {
%    \new StaffGroup
%    <<
%      \new ChordNames { \set chordChanges = ##t \transpose bes c \theChords }
%      \new Staff { \transpose bes c' \harmonyA }
%      \new Staff { \transpose bes c' \harmonyB }
%      \new Voice = "melody" { \transpose bes c \melody }
%      \new Lyrics \lyricsto "melody" { \theLyrics }
%      \new Staff { \transpose bes c'' \bass }
%    >>
%  }
%}

#(define output-suffix "Bflat-melody-harmony")
\book {
  \paper { 
    page-count = 1
    %between-system-padding=0
  }
  \header { instrument = "B flat / si bémol" }
  \score {
    \new StaffGroup
    <<
      %\new ChordNames { \set chordChanges = ##t \theChords }
      \new Staff { \transpose bes c' \harmonyA }
      \new Staff { \transpose bes c' \harmonyB }
      \new Voice = "melody" { \transpose bes c \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      %\new Staff { \transpose bes c'' \bass }
    >>
  }
}

#(define output-suffix "Eflat-melody-harmony")
\book {
  \paper { 
    page-count = 1
    %between-system-padding=0
  }
  \header { instrument = "E flat / si bémol" }
  \score {
    \new StaffGroup
    <<
      %\new ChordNames { \set chordChanges = ##t \theChords }
      \new Staff { \transpose ees c' \harmonyA }
      \new Staff { \transpose ees c' \harmonyB }
      \new Voice = "melody" { \transpose ees c \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      %\new Staff { \transpose ees c'' \bass }
    >>
  }
}

#(define output-suffix "Eflat-bass")
\book {
  \paper { 
    page-count = 1
    %between-system-padding=0
  }
  \header { instrument = "E flat / si bémol" }
  \score {
    \new StaffGroup
    <<
      \new ChordNames { \set chordChanges = ##t \transpose ees c \theChords }
      %\new Staff { \transpose ees c' \harmonyA }
      %\new Staff { \transpose ees c' \harmonyB }
      \new Voice = "melody" { \transpose ees c \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      \new Staff { \transpose ees c' \bass }
    >>
  }
}